home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Borland Visual dBASE Professiona v7.0 / DATA1.CAB / Sample_dBASE / Mugs / About.wfm next >
Text File  |  1997-11-20  |  4KB  |  191 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  About.wfm --  About box for the Mugs application. 
  4. //
  5. //  This form displays system memory in a standard
  6. //  application about box. This form opens from the
  7. //  Mugs menu selection: Help | About Mugs.
  8. //
  9. //  Dependencies: <none>
  10. //
  11. //  Visual dBASE Samples Group
  12. //
  13. //  $Revision:   1.5  $
  14. //
  15. //  Copyright (c) 1997, Borland International, Inc. 
  16. //  All rights reserved.
  17. //
  18. //---------------------------------------------------------------
  19. ** END HEADER -- do not remove this line
  20. //
  21. // Generated on 10/23/97
  22. //
  23. parameter bModal
  24. local f
  25. f = new ABOUTFORM()
  26. if (bModal)
  27.    f.mdi = false // ensure not MDI
  28.    f.readModal()
  29. else
  30.    f.open()
  31. endif
  32.  
  33. class ABOUTFORM of FORM
  34.    with (this)
  35.       readModal = class::FORM_READMODAL
  36.       autoCenter = true
  37.       scaleFontSize = 8
  38.       scaleFontBold = false
  39.       colorNormal = "purple"
  40.       height = 13
  41.       left = 22
  42.       top = 0.5263
  43.       width = 50
  44.       text = "About Mugs"
  45.       icon = "RESOURCE #2"
  46.    endwith
  47.  
  48.  
  49.    this.BUTTONCLOSE = new PUSHBUTTON(this)
  50.    with (this.BUTTONCLOSE)
  51.       onClick = {;form.close()}
  52.       height = 1.2
  53.       left = 36
  54.       top = 11.5
  55.       width = 12
  56.       text = "OK"
  57.       metric = 0
  58.       fontName = "MS Sans Serif"
  59.       fontSize = 8
  60.       group = true
  61.       colorNormal = "Yellow/Darkblue"
  62.       value = false
  63.    endwith
  64.  
  65.  
  66.    this.RECTANGLE1 = new RECTANGLE(this)
  67.    with (this.RECTANGLE1)
  68.       left = 0.5714
  69.       top = 8.5
  70.       width = 48
  71.       height = 0.1
  72.       metric = 0
  73.       text = ""
  74.       colorNormal = "darkblue"
  75.       fontName = "MS Sans Serif"
  76.    endwith
  77.  
  78.  
  79.    this.TEXTPHYSICAL = new TEXT(this)
  80.    with (this.TEXTPHYSICAL)
  81.       height = 1
  82.       left = 2
  83.       top = 9
  84.       width = 34
  85.       metric = 0
  86.       colorNormal = "yellow/yellow"
  87.       fontName = "MS Sans Serif"
  88.       fontSize = 8
  89.       text = "Physical Memory Available to Windows:"
  90.    endwith
  91.  
  92.  
  93.    this.TEXTVERSION = new TEXT(this)
  94.    with (this.TEXTVERSION)
  95.       height = 1
  96.       left = 2
  97.       top = 6
  98.       width = 19
  99.       metric = 0
  100.       colorNormal = "yellow/yellow"
  101.       fontName = "MS Sans Serif"
  102.       fontSize = 8
  103.       text = "Version 7.0"
  104.    endwith
  105.  
  106.  
  107.    this.TEXTCOPYRIGHT = new TEXT(this)
  108.    with (this.TEXTCOPYRIGHT)
  109.       height = 1
  110.       left = 2
  111.       top = 7
  112.       width = 45
  113.       metric = 0
  114.       colorNormal = "yellow/yellow"
  115.       fontName = "MS Sans Serif"
  116.       fontSize = 8
  117.       text = "Copyright (C) 1997  Borland International"
  118.    endwith
  119.  
  120.  
  121.    this.LABELFREE = new TEXT(this)
  122.    with (this.LABELFREE)
  123.       height = 1
  124.       left = 2
  125.       top = 10
  126.       width = 34
  127.       metric = 0
  128.       colorNormal = "yellow/yellow"
  129.       fontName = "MS Sans Serif"
  130.       fontSize = 8
  131.       text = "Free Memory:"
  132.    endwith
  133.  
  134.  
  135.    this.TEXTFREE = new TEXT(this)
  136.    with (this.TEXTFREE)
  137.       height = 1
  138.       left = 36
  139.       top = 9
  140.       width = 12
  141.       metric = 0
  142.       colorNormal = "yellow/yellow"
  143.       alignHorizontal = 2
  144.       fontName = "MS Sans Serif"
  145.       fontSize = 8
  146.       text = "TEXTFREE"
  147.    endwith
  148.  
  149.  
  150.    this.TEXTRES = new TEXT(this)
  151.    with (this.TEXTRES)
  152.       height = 1
  153.       left = 36
  154.       top = 10
  155.       width = 12
  156.       metric = 0
  157.       colorNormal = "yellow/yellow"
  158.       alignHorizontal = 2
  159.       fontName = "MS Sans Serif"
  160.       fontSize = 8
  161.       text = "TEXTRES"
  162.    endwith
  163.  
  164.  
  165.    this.IMAGE1 = new IMAGE(this)
  166.    with (this.IMAGE1)
  167.       height = 5
  168.       left = 7
  169.       top = 0.5
  170.       width = 36
  171.       metric = 0
  172.       dataSource = 'FILENAME "muglogo.gif"'
  173.       alignment = 3
  174.       borderStyle = 5
  175.    endwith
  176.  
  177.  
  178.    // {Linked Method} form.readModal
  179.    function Form_ReadModal
  180.       local nFree, nRes
  181.       nFree = TRANSFORM( MEMORY() , "999,999,999" )
  182.       nRes  = TRANSFORM( MEMORY(1), "999,999,999" )
  183.       with ( this )
  184.          TEXTFREE.text := LTRIM( RTRIM( nFree ) ) + " KB"
  185.          TEXTRES.text  := LTRIM( RTRIM( nRes ) ) + " KB"
  186.       endwith
  187.    return ABOUTFORM::ReadModal()
  188.  
  189.       
  190. endclass
  191.